home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / S-Sound and Music / (c)se.d64 / clap.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  183b  |  11 lines
  1. 5100 REM CLAP
  2. 5110 S=54272
  3. 5120 FOR L=0 TO 24:POKE S+L,0:NEXT
  4. 5130 POKE S,240  :POKE S+1,33
  5. 5140 POKE S+5,8  :POKE S+22,104
  6. 5150 POKE S+23,1 :POKE S+24,79
  7. 5162 POKE S+4,129
  8. 5164 FOR T=1 TO 500:NEXT
  9. 5166 POKE S+4,128
  10. 5180 POKE S+24,0
  11.